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1 PRQSRAM SAMPL 
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3 REAL A(10.20,30),A2(10.20,30),B 
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7 END 
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INTEGER FUNCTION SUM_SAMPL.3 (X) 
INTEGER X (5 1:200) 
SUM.SAMPL_3 = 0 
DO 999 II - 51. 200 
SUH_SAMPL_3 = SUM_SAMPL_3+X(I1) 
999 CONTINUE . 
RETURN 
END 
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SUM = SUM+X(I1, •••,!»«) 
999 CONTINUE 
RETURN 
END 
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C — main progreoa 

PROGRAM SAMPL 
INTEGER HClOO) 

REAL AC10,26,30),A2(10,20,30),B 

• mm 

B = SUM.TINY^1(A) 

B » SUM.1ND.ADD(A.B) 

WRITE (*,*) SXJM,TIDrY,2(M(51:100)) 

END 

C — subprogram 

REAL FUNCTION SUM, AND. ADD (q,S) 
REAL QC10.20,30).S 
■ SUM,AND.ADD = SUM.TINY.lCQ)+S 
RETURN 
END 

C — end of user programs 

REAL FUNCTION SUM.TINY.lU) 
REAL X(l:10, 1:20, 1:30) 
SUM.TINY.l » 0 
DO 999 13 = 1, 30 
DO 999 12 a 1, 20 
DO 999 II » 1, 10 
SUM.TINY.l = SUM,TINY.1+XCI1.I2.I3) 
999 CONTINUE 
. RETURN 
END 

INTEGER FUNCTION SUM,TINY_2U) 
INTEGER X(51:100) 
S0M_TINY,2 = 0 
DO 999 II = SI, 100 
SUM.TINY_2 » SUM,TINY.2+XCI1) 
999 CONTINUE 
RETURN 
END 
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C — main program 

PROGRAM SAMPL 
INTEGER ir(lOO) 

HEAL AC10.20,30),A2(10.20.30),B 

• • • 

B.= SUM(A) 

B = SUM_AND_ADD(A,B) 
WRITEC*,*) SUM(MCS1:100)) 
END 

C — end of main program 
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C — subprogram 

REAL FUNCTION SUM_AND_ADDCq ,S) 
REAL QC10,20.30).S 
SUM_AND_ADD = SUMCQ)+S 
RETURN 
END 

C — end of snbprograim 
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FILE tijttyl.o: 



C~ main program 

PROGRAM SAMPL 
INTEGER NClOO) 

REAL AC10,20,30),A2C10,20,30),B 

B - SUM.KA) 

B a SUM.AND.ADDCA.B) 

WRITEC*.*) SUM.2(M(51:100)) 

END 

C — end of main program 



FILE tiny2.o: 



C — subprogram 

REAL FUNCTION SUM.AND.ADDCQ ,S) 
REAL q(10,20,30).S 
SUM_AND.ADD = SUM.1(Q)+S 
RETURN 
END 

C — end of subprogram 
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